﻿Public Class frmAlumnosView
    Public Property Presenter As New AlumnosViewPresenter

    Private Sub frmAlumnosView_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AddHandler ModuleController.Instance.OnChangeAlumnos, AddressOf ChangeAlumnosHandler

        Me.DataGridView1.DataSource = Presenter.GetAlumnos


    End Sub
    Public Sub ChangeAlumnosHandler(ByVal sender As Object, ByVal e As EventArgs)
        Me.DataGridView1.DataSource = Presenter.GetAlumnos
        Me.TextBox1.Text = DateTime.Now.ToLongTimeString
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ModuleController.Instance.RaiseChangeAlunnos(Me)
    End Sub
End Class